home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)tv.d64
/
a story.c
(
.txt
)
next >
Wrap
Commodore BASIC
|
2007-02-04
|
1KB
|
39 lines
1 POKE53272,23
2 PRINT"[212]HIS IS[160]A[160][205][193][196] [204][201][194], YOU[160]FILL[160]IN[160]THE[160]"
4 PRINT"MISSING PARTS[160]OF[160]SPEECH. [199]OOD LUCK!"
5 REM WRITTEN BY PAT TUBBS 1978
6 PRINT
10 REM MAD LIB - A STORY
20 PRINT " [212]YPE[160]AN[160]ADJECTIVE":INPUT A$
30 PRINT " [212]YPE THE[160]NAME[160]OF[160]A[160]GIRL":INPUT B$
40 PRINT " [212]YPE[160]AN[160]ADJECTIVE":INPUT C$
50 PRINT" [212]YPE THE[160]NAME[160]OF[160]A[160]MAN":INPUT D$
52 PRINT"[212]YPE[160]AN[160]ADVERB":INPUT E$
54 PRINT"[212]YPE[160]A[160]NOUN":INPUT F$
60 PRINT"[212]YPE A[160]NOUN": INPUT G$
70 PRINT"[212]YPE[160]AN[160]ADVERB":INPUT H$
80 PRINT" [212]YPE AN[160]EXCLAMATION":INPUT I$
90 PRINT" [212]YPE AN[160]ADJECTIVE":INPUT J$
100 PRINT" [212]YPE AN[160]ADVERB":INPUT K$
110 PRINT"[212]YPE AN[160]ADJECTIVE":INPUT L$
120 PRINT"[212]YPE[160]AN[160]ADJECTIVE":INPUT M$
130 PRINT"[212]YPE[160]A NOUN": INPUT N$
135 PRINT"[147]"
140 PRINT" [193] [211][212][207][210][217] "
150 PRINT" "
160 PRINT" [212]HERE[160]WAS[160]A[160]SUDDEN "A$" KNOCK"
170 PRINT"ON THE[160]DOOR. "B$" ,TURNED[160]TO[160]"
180 PRINT"HER "C$" COUSIN. [209]UICK, "D$
190 PRINT" , SHE[160]CRIED " E$" , [200]IDE IN"
200 PRINT"THE "F$" CLOSET."
210 PRINT"[201]T[160]WAS[160]HER[160]BOY[160]FRIEND. [201] FORGOT"
220 PRINT"MY " G$" , HE[160]SAID " H$"."I$
230 PRINT" HE[160]ADDED. [215]HERE[160]DID[160]THIS "J$
240 PRINT"CIGAR[160]COME[160]FROM? [215]HAT[160]CIGAR?"
250 PRINT"SHE[160]ASKED "K$"."
260 PRINT"[196]ON'T[160]GIVE[160]ME[160]ANY[160]OF[160]THAT"L$
270 PRINT"STUFF, HE[160]SHOUTED. [206]EXT TIME"
280 PRINT"[201] CATCH[160]YOU[160]SMOKING[160]MY[160]CIGARS,"
290 PRINT"[201]'M[160]GOING[160]TO[160]WHALE[160]THE"M$" "N$
300 PRINT"OUT[160]OF[160]YOU!"